{var k: integer;
f: array[$ffff..10] of integer;
begin
k:=4;
f[1] := k+2;
while k < f[1] do
k := k + 1;
end.}


{Program 
1Ex1;  &&&&&&&&&&
$; 
_
^^^:=
qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq;
12345678901
$FFFFFFFFFF
qwer^QWER;}

var int: ARRAY [ -132 ..4456]of integer;
	mas1, mas2, mas3: array[20..30] of integer;
  l, j2, j3: integer;
  k, f, _12DF3, a: InTeGeR; {Comment}
begin  
{Comment}
  k := -10*(34/56)+34;
  int[3] := 12+21;  
  int[123] := j2 + mas1[123 - mas2[123+123+123 * mas3[l + j2 + j3]]] -45 *56;  
  while k<=4 do
  begin
    k := k - 1;
  end;
end. ervf